home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tu.d64 / bach fugue.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  28KB  |  1,156 lines
  1. 10 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  2. 20 REM    MUSIC - THE LITTLE FUGUE
  3. 30 REM
  4. 40 REM  FUGUE IN G MINOR - J.S. BACH
  5. 50 REM
  6. 60 REM      ARRANGED BY ANDY TOY
  7. 70 REM
  8. 80 REM         DRIVER PROGRAM
  9. 90 REM       BY JIM BUTTERFIELD
  10. 99 REM"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  11. 100 REM
  12. 101 POKE53280,0:POKE53281,0:PRINT"[147]"
  13. 105 PRINT" [198]UGUE IN [199] [205]INOR - ([212]HE [204]ITTLE [198]UGUE)":PRINTTAB(13)"[194]Y [202].[211]. [194]ACH"
  14. 110 L1=54272:L2=54279:L3=54286
  15. 120 H1=L1+1:H2=L2+1:H3=L3+1
  16. 130 V1=L1+4:V2=L2+4:V3=L3+4
  17. 140 POKE54296,15
  18. 150 POKEV1+1,28:POKEV1+2,0
  19. 160 POKEV2+1,26:POKEV2+2,170
  20. 170 POKEV3+1,26:POKEV3+2,170
  21. 180 T=TI:F=2.8
  22. 200 POKEV1,32:POKEV2,32:POKEV3,32
  23. 210 READS:IFS=0GOTO290
  24. 220 READX1,Y1,X2,Y2,X3,Y3
  25. 230 IFX1THENPOKEH1,X1:POKEL1,Y1:POKEV1,33
  26. 240 IFX2THENPOKEH2,X2:POKEL2,Y2:POKEV2,33
  27. 250 IFX3THENPOKEH3,X3:POKEL3,Y3:POKEV3,33
  28. 260 T=T+S*F
  29. 270 IFT>TIGOTO270
  30. 280 GOTO200
  31. 290 FORJ=L1 TO 54296:POKE J,0:NEXT J
  32. 300 REM DURATION,HI1,LO1,...,HI3,LO3
  33. 301 DATA 20,0,0,0,0,0,0
  34. 305 REM BAR 1
  35. 310 DATA 20,25,177,0,0,0,0
  36. 320 DATA 20,38,126,0,0,0,0
  37. 330 DATA 30,30,141,0,0,0,0
  38. 340 DATA 10,28,214,0,0,0,0
  39. 350 DATA 10,25,177,0,0,0,0
  40. 360 DATA 10,30,141,0,0,0,0
  41. 370 DATA 10,28,214,0,0,0,0
  42. 380 DATA 10,25,177,0,0,0,0
  43. 390 DATA 10,24,63,0,0,0,0
  44. 400 DATA 10,28,214,0,0,0,0
  45. 410 DATA 20,19,63,0,0,0,0
  46. 415 REM  BAR 3
  47. 420 DATA 10,25,177,0,0,0,0
  48. 430 DATA 10,19,63,0,0,0,0
  49. 440 DATA 10,28,214,0,0,0,0
  50. 450 DATA 10,19,63,0,0,0,0
  51. 460 DATA 10,30,141,0,0,0,0
  52. 470 DATA 5,28,214,0,0,0,0
  53. 480 DATA 5,25,177,0,0,0,0
  54. 490 DATA 10,28,214,0,0,0,0
  55. 500 DATA 10,19,63,0,0,0,0
  56. 510 DATA 10,25,177,0,0,0,0
  57. 520 DATA 5,19,63,0,0,0,0
  58. 530 DATA 5,25,177,0,0,0,0
  59. 540 DATA 10,28,214,0,0,0,0
  60. 550 DATA 5,19,63,0,0,0,0
  61. 560 DATA 5,28,214,0,0,0,0
  62. 570 DATA 10,30,141,0,0,0,0
  63. 580 DATA 5,28,214,0,0,0,0
  64. 590 DATA 5,25,177,0,0,0,0
  65. 600 DATA 5,28,214,0,0,0,0
  66. 610 DATA 5,19,63,0,0,0,0
  67. 620 DATA 5,38,126,0,0,0,0
  68. 630 DATA 5,34,75,0,0,0,0
  69. 635 REM  BAR 5
  70. 640 DATA 5,30,141,0,0,0,0
  71. 650 DATA 5,28,214,0,0,0,0
  72. 660 DATA 5,25,177,0,0,0,0
  73. 670 DATA 5,30,141,0,0,0,0
  74. 680 DATA 5,28,214,0,0,0,0
  75. 690 DATA 5,25,177,0,0,0,0
  76. 700 DATA 5,24,63,0,0,0,0
  77. 710 DATA 5,28,214,0,0,0,0
  78. 720 DATA 5,25,177,0,0,0,0
  79. 730 DATA 5,19,63,0,0,0,0
  80. 740 DATA 5,25,177,0,0,0,0
  81. 750 DATA 5,28,214,0,0,0,0
  82. 760 DATA 5,30,141,0,0,0,0
  83. 770 DATA 5,34,75,0,0,0,0
  84. 780 DATA 5,38,126,0,0,0,0
  85. 790 DATA 5,43,52,0,0,0,0
  86. 795 REM BAR 6
  87. 800 DATA 5,45,198,19,63,0,0
  88. 810 DATA 5,43,52,0,0,0,0
  89. 820 DATA 5,38,126,0,0,0,0
  90. 830 DATA 5,45,198,0,0,0,0
  91. 840 DATA 5,43,52,28,214,0,0
  92. 850 DATA 5,38,126,0,0,0,0
  93. 860 DATA 5,36,85,0,0,0,0
  94. 870 DATA 5,43,52,0,0,0,0
  95. 880 DATA 10,38,126,22,227,0,0
  96. 890 DATA 10,28,214,0,0,0,0
  97. 900 DATA 10,38,126,0,0,0,0
  98. 910 DATA 10,43,52,21,154,0,0
  99. 915 REM  BAR 7
  100. 920 DATA 5,45,198,19,63,0,0
  101. 930 DATA 5,51,97,0,0,0,0
  102. 940 DATA 5,45,198,22,227,0,0
  103. 950 DATA 5,51,97,0,0,0,0
  104. 960 DATA 2.5,51,97,21,154,0,0
  105. 970 DATA 2.5,57,172,0,0,0,0
  106. 980 DATA 2.5,51,97,0,0,0,0
  107. 985 DATA 2.5,57,172,0,0,0,0
  108. 990 DATA 2.5,51,97,19,63,0,0
  109. 1000 DATA 2.5,57,172,0,0,0,0
  110. 1010 DATA 2.5,45,198,0,0,0,0
  111. 1020 DATA 2.5,51,97,0,0,0,0
  112. 1030 DATA 5,57,172,18,42,0,0
  113. 1040 DATA 5,51,97,0,0,0,0
  114. 1050 DATA 5,57,172,21,154,0,0
  115. 1060 DATA 5,61,126,0,0,0,0
  116. 1070 DATA 5,57,172,14,107,0,0
  117. 1080 DATA 5,51,97,0,0,0,0
  118. 1090 DATA 5,45,198,0,0,0,0
  119. 1100 DATA 5,43,52,0,0,0,0
  120. 1105 REM  BAR 8
  121. 1110 DATA 5,45,198,19,63,0,0
  122. 1120 DATA 5,57,172,0,0,0,0
  123. 1130 DATA 5,51,97,14,107,0,0
  124. 1140 DATA 5,57,172,0,0,0,0
  125. 1150 DATA 5,36,85,21,154,0,0
  126. 1160 DATA 5,57,172,0,0,0,0
  127. 1170 DATA 5,51,97,14,107,0,0
  128. 1180 DATA 5,57,172,0,0,0,0
  129. 1190 DATA 5,38,126,22,227,0,0
  130. 1200 DATA 5,57,172,0,0,0,0
  131. 1210 DATA 5,51,97,21,154,0,0
  132. 1220 DATA 5,57,172,19,63,0,0
  133. 1230 DATA 5,36,85,21,154,0,0
  134. 1240 DATA 5,57,172,0,0,0,0
  135. 1250 DATA 5,51,97,14,107,0,0
  136. 1260 DATA 5,57,172,0,0,0,0
  137. 1265 REM BAR 9
  138. 1270 DATA 5,45,197,19,63,0,0
  139. 1280 DATA 5,38,126,0,0,0,0
  140. 1290 DATA 5,36,85,14,107,0,0
  141. 1300 DATA 5,38,126,19,63,0,0
  142. 1310 DATA 5,51,97,21,154,0,0
  143. 1320 DATA 5,38,126,0,0,0,0
  144. 1330 DATA 5,36,85,14,107,0,0
  145. 1340 DATA 5,38,126,21,154,0,0
  146. 1350 DATA 5,57,172,22,227,0,0
  147. 1360 DATA 5,38,126,0,0,0,0
  148. 1370 DATA 5,36,85,21,154,0,0
  149. 1380 DATA 5,38,126,19,63,0,0
  150. 1390 DATA 5,51,97,21,154,0,0
  151. 1400 DATA 5,38,126,14,107,0,0
  152. 1410 DATA 5,36,85,28,214,0,0
  153. 1420 DATA 5,38,126,25,177,0,0
  154. 1425 REM BAR 10
  155. 1430 DATA 5,0,0,22,227,28,214
  156. 1440 DATA 5,0,0,21,154,0,0
  157. 1450 DATA 5,0,0,19,63,45,198
  158. 1460 DATA 5,0,0,22,227,0,0
  159. 1470 DATA 5,0,0,21,154,25,177
  160. 1480 DATA 5,0,0,19,63,0,0
  161. 1490 DATA 5,0,0,18,42,43,52
  162. 1500 DATA 5,0,0,21,154,0,0
  163. 1510 DATA 5,0,0,19,63,22,227
  164. 1520 DATA 5,0,0,14,107,0,0
  165. 1530 DATA 5,0,0,19,63,28,214
  166. 1540 DATA 5,0,0,21,154,0,0
  167. 1550 DATA 5,0,0,22,227,38,126
  168. 1560 DATA 5,0,0,25,177,0,0
  169. 1570 DATA 5,0,0,28,214,45,198
  170. 1580 DATA 5,0,0,32,94,0,0
  171. 1585 REM BAR 11
  172. 1590 DATA 5,40,200,34,75,0,0
  173. 1600 DATA 5,0,0,30,141,0,0
  174. 1610 DATA 5,57,172,34,75,0,0
  175. 1620 DATA 5,0,0,38,126,0,0
  176. 1630 DATA 5,0,0,34,75,0,0
  177. 1640 DATA 5,0,0,30,141,0,0
  178. 1650 DATA 5,40,200,28,214,0,0
  179. 1660 DATA 5,0,0,34,75,0,0
  180. 1670 DATA 5,38,126,30,141,0,0
  181. 1680 DATA 5,0,0,28,214,0,0
  182. 1690 DATA 5,51,97,30,141,0,0
  183. 1700 DATA 5,0,0,34,75,0,0
  184. 1710 DATA 5,0,0,30,141,0,0
  185. 1720 DATA 5,0,0,28,214,0,0
  186. 1730 DATA 5,38,126,25,177,0,0
  187. 1740 DATA 5,0,0,30,141,0,0
  188. 1745 REM BAR 12
  189. 1750 DATA 5,34,75,28,214,0,0
  190. 1760 DATA 5,30,141,0,0,0,0
  191. 1770 DATA 5,34,75,25,177,0,0
  192. 1780 DATA 5,38,126,0,0,0,0
  193. 1790 DATA 5,34,75,24,63,0,0
  194. 1800 DATA 5,57,172,0,0,0,0
  195. 1810 DATA 5,51,97,19,63,0,0
  196. 1820 DATA 5,57,172,0,0,0,0
  197. 1830 DATA 5,30,141,25,177,12,216
  198. 1840 DATA 5,51,97,0,0,0,0
  199. 1850 DATA 5,48,127,0,0,0,0
  200. 1860 DATA 5,51,97,0,0,0,0
  201. 1870 DATA 5,28,214,0,0,19,63
  202. 1880 DATA 5,48,127,0,0,0,0
  203. 1890 DATA 5,43,52,0,0,0,0
  204. 1900 DATA 5,48,127,0,0,0,0
  205. 1905 REM BAR 13
  206. 1910 DATA 10,51,97,15,70,51,97
  207. 1920 DATA 10,19,63,19,63,0,0
  208. 1930 DATA 10,25,177,25,177,0,0
  209. 1940 DATA 10,28,214,28,214,14,107
  210. 1950 DATA 5,30,141,12,216,0,0
  211. 1960 DATA 5,34,75,0,0,0,0
  212. 1970 DATA 5,30,141,15,70,0,0
  213. 1980 DATA 5,34,75,0,0,0,0
  214. 1990 DATA 2.5,34,75,14,107,0,0
  215. 2000 DATA 2.5,38,126,0,0,0,0
  216. 2010 DATA 2.5,34,75,0,0,0,0
  217. 2015 DATA 2.5,38,126,0,0,0,0
  218. 2020 DATA 2.5,34,75,12,216,0,0
  219. 2030 DATA 2.5,38,126,0,0,0,0
  220. 2040 DATA 2.5,30,141,0,0,0,0
  221. 2050 DATA 2.5,34,75,0,0,0,0
  222. 2055 REM  PAGE 2
  223. 2060 DATA 5,0,0,38,126,12,32
  224. 2070 DATA 5,0,0,34,75,0,0
  225. 2080 DATA 5,0,0,38,126,14,107
  226. 2090 DATA 5,0,0,40,200,0,0
  227. 2100 DATA 5,0,0,38,126,9,159
  228. 2110 DATA 5,0,0,34,75,0,0
  229. 2120 DATA 5,0,0,30,141,0,0
  230. 2130 DATA 5,0,0,28,214,0,0
  231. 2140 DATA 5,19,63,30,141,12,216
  232. 2150 DATA 5,0,0,38,126,0,0
  233. 2160 DATA 5,0,0,34,75,9,159
  234. 2170 DATA 5,0,0,38,126,0,0
  235. 2180 DATA 5,17,37,24,63,14,107
  236. 2190 DATA 5,0,0,38,126,0,0
  237. 2200 DATA 5,0,0,34,75,9,159
  238. 2210 DATA 5,0,0,38,126,0,0
  239. 2215 REM BAR 2 - 2
  240. 2220 DATA 5,19,63,25,177,15,70
  241. 2230 DATA 5,0,0,38,126,0,0
  242. 2240 DATA 5,0,0,34,75,14,107
  243. 2250 DATA 5,0,0,38,126,12,216
  244. 2260 DATA 5,17,37,24,63,14,107
  245. 2270 DATA 5,0,0,38,126,0,0
  246. 2280 DATA 5,0,0,34,75,9,159
  247. 2290 DATA 5,0,0,38,126,0,0
  248. 2300 DATA 5,0,0,30,141,12,216
  249. 2310 DATA 5,25,177,0,0,0,0
  250. 2320 DATA 5,24,63,0,0,9,159
  251. 2330 DATA 5,25,177,0,0,12,216
  252. 2340 DATA 5,0,0,34,75,14,107
  253. 2350 DATA 5,25,177,0,0,0,0
  254. 2360 DATA 5,24,63,0,0,9,159
  255. 2370 DATA 5,25,177,0,0,14,107
  256. 2375 REM BAR 2 - 3
  257. 2380 DATA 5,0,0,38,126,15,70
  258. 2390 DATA 5,25,177,0,0,0,0
  259. 2400 DATA 5,24,63,0,0,14,107
  260. 2410 DATA 5,25,177,0,0,12,216
  261. 2420 DATA 5,0,0,34,75,14,107
  262. 2430 DATA 5,25,177,0,0,9,159
  263. 2440 DATA 5,24,63,0,0,19,63
  264. 2450 DATA 5,25,177,0,0,17,37
  265. 2460 DATA 5,19,63,0,0,15,70
  266. 2470 DATA 5,0,0,0,0,14,107
  267. 2480 DATA 5,0,0,30,141,12,216
  268. 2490 DATA 5,0,0,0,0,15,70
  269. 2500 DATA 5,17,37,0,0,14,107
  270. 2510 DATA 5,0,0,0,0,12,216
  271. 2520 DATA 5,0,0,28,214,12,32
  272. 2530 DATA 5,0,0,0,0,14,107
  273. 2535 REM BAR 2 - 4
  274. 2540 DATA 5,0,0,12,216,15,70
  275. 2550 DATA 5,0,0,9,159,0,0
  276. 2560 DATA 5,19,63,12,216,0,0
  277. 2570 DATA 5,0,0,14,107,0,0
  278. 2580 DATA 5,25,177,15,70,0,0
  279. 2590 DATA 5,28,214,17,37,0,0
  280. 2600 DATA 5,30,141,19,63,0,0
  281. 2610 DATA 5,28,214,21,154,0,0
  282. 2620 DATA 5,28,214,22,227,9,159
  283. 2630 DATA 5,0,0,21,154,0,0
  284. 2640 DATA 5,38,126,19,63,0,0
  285. 2650 DATA 5,0,0,22,227,0,0
  286. 2660 DATA 5,36,85,21,154,14,107
  287. 2670 DATA 5,0,0,19,63,0,0
  288. 2680 DATA 5,43,52,18,42,0,0
  289. 2690 DATA 5,0,0,21,154,0,0
  290. 2695 REM BAR 2 - 5
  291. 2700 DATA 5,57,172,11,114,5,185
  292. 2710 DATA 5,61,126,0,0,0,0
  293. 2720 DATA 5,57,172,14,107,0,0
  294. 2730 DATA 5,51,97,0,0,0,0
  295. 2740 DATA 5,45,198,19,63,0,0
  296. 2750 DATA 5,43,52,0,0,0,0
  297. 2760 DATA 5,38,126,21,154,10,205
  298. 2770 DATA 5,36,85,0,0,0,0
  299. 2780 DATA 5,22,227,38,126,9,159
  300. 2790 DATA 5,25,177,0,0,0,0
  301. 3000 DATA 5,22,227,11,114,11,114
  302. 3010 DATA 5,25,177,0,0,0,0
  303. 3020 DATA 2.5,25,177,10,205,61,126
  304. 3030 DATA 2.5,28,214,0,0,0,0
  305. 3040 DATA 2.5,25,177,0,0,0,0
  306. 3045 DATA 2.5,28,214,0,0,0,0
  307. 3050 DATA 2.5,25,177,9,159,9,159
  308. 3060 DATA 2.5,28,214,0,0,0,0
  309. 3070 DATA 2.5,22,227,0,0,0,0
  310. 3080 DATA 2.5,25,177,0,0,0,0
  311. 3085 REM BAR 2 - 6
  312. 3090 DATA 5,28,214,9,21,43,52
  313. 3100 DATA 5,25,177,0,0,0,0
  314. 3110 DATA 5,28,214,10,205,10,205
  315. 3120 DATA 5,30,141,0,0,0,0
  316. 3130 DATA 5,28,214,7,53,7,53
  317. 3140 DATA 5,25,177,0,0,0,0
  318. 3150 DATA 5,22,227,0,0,28,214
  319. 3160 DATA 5,21,154,0,0,0,0
  320. 3170 DATA 5,45,198,9,159,14,107
  321. 3180 DATA 5,28,214,0,0,0,0
  322. 3190 DATA 5,25,177,7,53,7,53
  323. 3200 DATA 5,28,214,0,0,0,0
  324. 3210 DATA 5,18,42,10,205,14,107
  325. 3220 DATA 5,28,214,0,0,0,0
  326. 3230 DATA 5,25,177,7,53,7,53
  327. 3240 DATA 5,28,214,0,0,0,0
  328. 3245 REM BAR 2 - 7
  329. 3250 DATA 5,19,63,11,114,14,107
  330. 3260 DATA 5,28,214,0,0,0,0
  331. 3270 DATA 5,25,177,10,205,0,0
  332. 3280 DATA 5,28,214,9,159,0,0
  333. 3290 DATA 5,14,107,18,42,10,205
  334. 3300 DATA 5,28,214,0,0,0,0
  335. 3310 DATA 5,25,177,7,53,0,0
  336. 3320 DATA 5,28,214,0,0,0,0
  337. 3330 DATA 5,28,214,9,159,14,107
  338. 3340 DATA 5,19,63,0,0,0,0
  339. 3350 DATA 5,18,42,7,53,0,0
  340. 3360 DATA 5,19,63,9,159,0,0
  341. 3370 DATA 5,25,177,10,205,14,107
  342. 3380 DATA 5,19,63,0,0,0,0
  343. 3390 DATA 5,18,42,7,53,0,0
  344. 3400 DATA 5,19,63,10,205,0,0
  345. 3405 REM BAR 2 - 8
  346. 3410 DATA 5,28,214,11,114,14,107
  347. 3420 DATA 5,19,63,0,0,0,0
  348. 3430 DATA 5,18,42,10,205,0,0
  349. 3440 DATA 5,19,63,9,159,0,0
  350. 3450 DATA 5,25,177,10,205,14,107
  351. 3460 DATA 5,19,63,0,0,0,0
  352. 3470 DATA 5,18,42,7,53,0,0
  353. 3480 DATA 5,19,63,0,0,0,0
  354. 3490 DATA 5,57,172,22,227,19,63
  355. 3500 DATA 5,51,97,0,0,0,0
  356. 3510 DATA 5,57,172,43,52,12,216
  357. 3520 DATA 5,61,126,38,126,0,0
  358. 3530 DATA 5,57,172,28,214,18,42
  359. 3540 DATA 5,51,97,0,0,0,0
  360. 3550 DATA 5,45,198,0,0,0,0
  361. 3560 DATA 5,43,52,19,63,0,0
  362. 3565 REM BAR 2 - 9
  363. 3570 DATA 5,19,63,0,0,45,198
  364. 3580 DATA 5,17,37,0,0,0,0
  365. 3590 DATA 5,19,63,28,214,0,0
  366. 3600 DATA 5,21,154,0,0,0,0
  367. 3610 DATA 5,19,63,38,126,0,0
  368. 3620 DATA 5,17,37,0,0,0,0
  369. 3630 DATA 5,15,70,34,75,0,0
  370. 3640 DATA 5,14,107,0,0,0,0
  371. 3650 DATA 5,12,216,0,0,30,141
  372. 3660 DATA 5,11,114,0,0,0,0
  373. 3670 DATA 5,12,216,38,126,0,0
  374. 3680 DATA 5,14,107,0,0,0,0
  375. 3690 DATA 5,12,216,51,97,0,0
  376. 3700 DATA 5,11,114,0,0,0,0
  377. 3710 DATA 5,10,60,45,198,0,0
  378. 3720 DATA 5,9,159,0,0,0,0
  379. 3725 REM BAR 2 - 10
  380. 3730 DATA 5,17,37,30,141,40,200
  381. 3740 DATA 5,15,70,0,0,0,0
  382. 3750 DATA 5,17,37,25,177,0,0
  383. 3760 DATA 5,19,104,0,0,0,0
  384. 3770 DATA 5,17,37,34,75,0,0
  385. 3780 DATA 5,15,70,0,0,0,0
  386. 3790 DATA 5,14,107,30,141,0,0
  387. 3800 DATA 5,12,216,0,0,0,0
  388. 3810 DATA 5,11,114,28,214,0,0
  389. 3820 DATA 5,10,60,0,0,0,0
  390. 3830 DATA 5,11,114,0,0,34,75
  391. 3840 DATA 5,12,216,0,0,0,0
  392. 3850 DATA 5,11,114,0,0,45,198
  393. 3860 DATA 5,10,60,0,0,0,0
  394. 3870 DATA 5,9,159,0,0,40,200
  395. 3880 DATA 5,8,147,0,0,0,0
  396. 3885 REM BAR 2 - 11
  397. 3890 DATA 5,7,163,0,0,38,126
  398. 3900 DATA 5,15,70,0,0,0,0
  399. 3910 DATA 5,17,37,0,0,0,0
  400. 3920 DATA 5,19,63,0,0,0,0
  401. 3930 DATA 5,20,100,25,177,25,177
  402. 3940 DATA 5,51,97,0,0,0,0
  403. 3950 DATA 5,48,127,0,0,0,0
  404. 3960 DATA 5,51,97,0,0,0,0
  405. 3970 DATA 5,34,75,34,75,0,0
  406. 3980 DATA 5,14,107,0,0,0,0
  407. 3990 DATA 5,15,70,0,0,0,0
  408. 4000 DATA 5,17,37,0,0,0,0
  409. 4010 DATA 5,19,63,0,0,24,63
  410. 4020 DATA 5,30,141,0,0,0,0
  411. 4030 DATA 5,28,214,0,0,0,0
  412. 4040 DATA 5,34,75,0,0,0,0
  413. 4045 REM BAR 2 - 12
  414. 4050 DATA 5,30,141,25,177,12,216
  415. 4060 DATA 5,28,214,0,0,0,0
  416. 4070 DATA 5,25,177,0,0,0,0
  417. 4080 DATA 5,30,141,0,0,0,0
  418. 4090 DATA 5,28,214,0,0,19,63
  419. 4100 DATA 5,25,177,0,0,0,0
  420. 4110 DATA 5,24,63,0,0,0,0
  421. 4120 DATA 5,28,214,0,0,0,0
  422. 4130 DATA 5,25,177,0,0,15,70
  423. 4140 DATA 5,19,63,0,0,0,0
  424. 4150 DATA 5,21,154,0,0,0,0
  425. 4160 DATA 5,24,63,0,0,0,0
  426. 4170 DATA 5,25,177,0,0,0,0
  427. 4180 DATA 5,19,63,0,0,0,0
  428. 4190 DATA 5,25,177,0,0,14,107
  429. 4200 DATA 5,28,214,0,0,0,0
  430. 4205 REM BAR 2 - 13
  431. 4210 DATA 5,30,141,25,177,12,216
  432. 4220 DATA 5,25,177,0,0,15,70
  433. 4230 DATA 5,30,141,0,0,14,107
  434. 4240 DATA 5,34,75,0,0,12,216
  435. 4250 DATA 5,38,126,0,0,12,32
  436. 4260 DATA 5,28,214,0,0,12,216
  437. 4270 DATA 5,38,126,0,0,10,205
  438. 4280 DATA 5,34,75,0,0,12,32
  439. 4290 DATA 5,12,216,30,141,30,141
  440. 4300 DATA 5,9,159,0,0,0,0
  441. 4310 DATA 5,10,205,6,108,0,0
  442. 4320 DATA 5,12,32,0,0,0,0
  443. 4330 DATA 5,12,216,12,216,0,0
  444. 4340 DATA 5,9,159,0,0,0,0
  445. 4350 DATA 5,12,216,11,114,28,214
  446. 4360 DATA 5,14,107,0,0,0,0
  447. 4365 REM PAGE 3
  448. 4370 DATA 5,15,70,25,177,10,60
  449. 4380 DATA 5,17,37,0,0,0,0
  450. 4390 DATA 5,15,70,30,141,0,0
  451. 4400 DATA 5,17,37,0,0,0,0
  452. 4410 DATA 2.5,17,37,28,214,5,25
  453. 4420 DATA 2.5,19,63,0,0,0,0
  454. 4430 DATA 2.5,17,37,0,0,0,0
  455. 4440 DATA 2.5,19,63,0,0,0,0
  456. 4450 DATA 2.5,17,27,25,177,0,0
  457. 4460 DATA 2.5,19,63,0,0,0,0
  458. 4470 DATA 2.5,15,70,0,0,0,0
  459. 4480 DATA 2.5,17,37,0,0,0,0
  460. 4490 DATA 5,19,63,24,63,4,208
  461. 4500 DATA 5,17,37,0,0,0,0
  462. 4510 DATA 5,19,63,28,214,9,159
  463. 4520 DATA 5,20,100,0,0,0,0
  464. 4530 DATA 5,19,63,19,63,4,208
  465. 4540 DATA 5,17,37,0,0,0,0
  466. 4550 DATA 5,15,70,0,0,0,0
  467. 4560 DATA 5,14,107,0,0,0,0
  468. 4565 REM BAR 3 - 2
  469. 4570 DATA 5,15,70,25,177,0,0
  470. 4580 DATA 5,19,63,0,0,0,0
  471. 4590 DATA 5,17,37,19,63,0,0
  472. 4600 DATA 5,19,63,0,0,0,0
  473. 4610 DATA 5,12,32,28,214,0,0
  474. 4620 DATA 5,19,63,0,0,0,0
  475. 4630 DATA 5,17,37,19,63,0,0
  476. 4640 DATA 5,19,63,0,0,0,0
  477. 4650 DATA 5,12,216,30,141,0,0
  478. 4660 DATA 5,19,63,0,0,0,0
  479. 4670 DATA 5,17,37,28,214,0,0
  480. 4680 DATA 5,19,63,25,177,0,0
  481. 4690 DATA 5,12,32,28,214,0,0
  482. 4700 DATA 5,19,63,0,0,0,0
  483. 4710 DATA 5,17,37,19,63,0,0
  484. 4720 DATA 5,19,63,0,0,0,0
  485. 4725 REM BAR 3 - 3
  486. 4730 DATA 5,15,70,25,177,0,0
  487. 4740 DATA 5,12,216,0,0,0,0
  488. 4750 DATA 5,12,32,19,63,0,0
  489. 4760 DATA 5,12,216,25,177,0,0
  490. 4770 DATA 5,17,37,28,214,0,0
  491. 4780 DATA 5,12,216,0,0,0,0
  492. 4790 DATA 5,12,32,19,63,0,0
  493. 4800 DATA 5,12,216,28,214,0,0
  494. 4810 DATA 5,19,63,30,141,0,0
  495. 4820 DATA 5,12,216,0,0,0,0
  496. 4830 DATA 5,12,32,28,214,0,0
  497. 4840 DATA 5,12,216,25,177,0,0
  498. 4850 DATA 5,17,37,28,214,0,0
  499. 4860 DATA 5,12,216,19,63,0,0
  500. 4870 DATA 5,12,32,38,126,0,0
  501. 4880 DATA 5,12,216,34,75,0,0
  502. 4885 REM BAR 3 - 4
  503. 4890 DATA 5,30,141,12,216,9,159
  504. 4900 DATA 5,28,214,0,0,0,0
  505. 4910 DATA 5,25,177,15,70,0,0
  506. 4920 DATA 5,30,141,0,0,0,0
  507. 4930 DATA 5,28,214,17,37,0,0
  508. 4940 DATA 5,25,177,15,70,0,0
  509. 4950 DATA 5,24,63,14,107,0,0
  510. 4960 DATA 5,28,214,17,37,0,0
  511. 4970 DATA 5,25,177,15,70,0,0
  512. 4980 DATA 5,30,141,0,0,0,0
  513. 4990 DATA 5,34,75,0,0,0,0
  514. 5000 DATA 5,38,126,0,0,0,0
  515. 5010 DATA 5,40,200,0,0,8,147
  516. 5020 DATA 5,30,141,19,63,0,0
  517. 5030 DATA 5,28,214,17,37,0,0
  518. 5040 DATA 5,25,177,15,70,0,0
  519. 5045 REM BAR 3 - 5
  520. 5050 DATA 5,24,63,14,107,0,0
  521. 5060 DATA 5,28,214,0,0,0,0
  522. 5070 DATA 5,30,141,0,0,0,0
  523. 5080 DATA 5,34,75,0,0,0,0
  524. 5090 DATA 5,38,126,0,0,7,163
  525. 5100 DATA 5,28,214,17,37,0,0
  526. 5110 DATA 5,25,177,15,70,0,0
  527. 5120 DATA 5,22,227,14,107,0,0
  528. 5130 DATA 5,20,100,12,216,0,0
  529. 5140 DATA 5,25,177,0,0,0,0
  530. 5150 DATA 5,28,214,0,0,0,0
  531. 5160 DATA 5,30,141,0,0,0,0
  532. 5170 DATA 5,34,75,0,0,7,53
  533. 5180 DATA 5,25,177,15,70,0,0
  534. 5190 DATA 5,22,227,14,107,0,0
  535. 5200 DATA 5,20,100,12,216,0,0
  536. 5205 REM BAR 3 - 6
  537. 5210 DATA 5,19,63,11,114,7,163
  538. 5220 DATA 5,22,227,0,0,0,0
  539. 5230 DATA 5,25,177,0,0,7,53
  540. 5240 DATA 5,28,214,0,0,0,0
  541. 5250 DATA 5,30,141,0,0,6,108
  542. 5260 DATA 5,38,126,0,0,0,0
  543. 5270 DATA 5,34,75,21,154,0,0
  544. 5280 DATA 5,30,141,0,0,0,0
  545. 5290 DATA 5,28,214,22,227,5,185
  546. 5300 DATA 5,34,75,0,0,0,0
  547. 5310 DATA 5,38,126,20,100,0,0
  548. 5320 DATA 5,40,200,0,0,0,0
  549. 5330 DATA 5,45,198,19,63,0,0
  550. 5340 DATA 5,51,97,0,0,0,0
  551. 5350 DATA 5,45,198,17,37,0,0
  552. 5360 DATA 5,40,200,0,0,0,0
  553. 5365 REM BAR 3 - 7
  554. 5370 DATA 5,38,126,15,70,7,163
  555. 5380 DATA 5,45,198,0,0,0,0
  556. 5390 DATA 5,40,200,0,0,0,0
  557. 5400 DATA 5,38,126,0,0,0,0
  558. 5410 DATA 5,34,75,22,227,0,0
  559. 5420 DATA 5,30,141,0,0,0,0
  560. 5430 DATA 5,28,214,0,0,0,0
  561. 5440 DATA 5,34,75,0,0,0,0
  562. 5450 DATA 5,30,141,19,63,0,0
  563. 5460 DATA 5,22,227,0,0,0,0
  564. 5470 DATA 5,25,177,0,0,17,37
  565. 5480 DATA 5,28,214,0,0,0,0
  566. 5490 DATA 5,30,141,0,0,15,70
  567. 5500 DATA 5,34,75,0,0,0,0
  568. 5510 DATA 5,30,141,17,37,14,107
  569. 5520 DATA 5,34,75,0,0,0,0
  570. 5525 REM BAR 3 - 8
  571. 5530 DATA 5,38,126,15,70,12,216
  572. 5540 DATA 5,43,52,0,0,0,0
  573. 5550 DATA 5,38,126,19,63,0,0
  574. 5560 DATA 5,43,52,0,0,0,0
  575. 5570 DATA 2.5,43,52,17,37,0,0
  576. 5580 DATA 2.5,45,198,0,0,0,0
  577. 5590 DATA 2.5,43,52,0,0,0,0
  578. 5600 DATA 2.5,45,198,0,0,0,0
  579. 5610 DATA 2.5,43,52,15,70,0,0
  580. 5620 DATA 2.5,45,198,0,0,0,0
  581. 5630 DATA 2.5,38,126,0,0,0,0
  582. 5640 DATA 2.5,43,52,0,0,0,0
  583. 5650 DATA 5,45,198,14,107,11,114
  584. 5660 DATA 5,40,200,0,0,0,0
  585. 5670 DATA 5,45,198,17,37,0,0
  586. 5680 DATA 5,51,97,0,0,0,0
  587. 5690 DATA 5,45,198,0,0,11,114
  588. 5700 DATA 5,40,200,0,0,0,0
  589. 5710 DATA 5,38,126,22,227,0,0
  590. 5720 DATA 5,34,75,0,0,0,0
  591. 5725 REM BAR 3 - 9
  592. 5730 DATA 5,38,126,15,70,22,227
  593. 5740 DATA 5,45,198,0,0,0,0
  594. 5750 DATA 5,40,200,11,114,0,0
  595. 5760 DATA 5,45,198,0,0,0,0
  596. 5770 DATA 5,28,214,17,37,0,0
  597. 5780 DATA 5,45,198,0,0,0,0
  598. 5790 DATA 5,40,200,11,114,0,0
  599. 5800 DATA 5,45,198,0,0,0,0
  600. 5810 DATA 5,30,141,19,63,0,0
  601. 5820 DATA 5,45,198,0,0,0,0
  602. 5830 DATA 5,40,200,17,37,0,0
  603. 5840 DATA 5,45,198,15,70,0,0
  604. 5850 DATA 5,28,214,17,37,0,0
  605. 5860 DATA 5,45,198,0,0,0,0
  606. 5870 DATA 5,40,200,11,114,0,0
  607. 5880 DATA 5,45,198,0,0,0,0
  608. 5885 REM BAR 3 - 10
  609. 5890 DATA 5,38,126,15,70,22,227
  610. 5900 DATA 5,30,141,0,0,0,0
  611. 5910 DATA 5,28,214,11,114,0,0
  612. 5920 DATA 5,30,141,15,70,0,0
  613. 5930 DATA 5,40,200,17,37,0,0
  614. 5940 DATA 5,30,141,0,0,0,0
  615. 5950 DATA 5,28,214,11,114,0,0
  616. 5960 DATA 5,30,141,17,37,0,0
  617. 5970 DATA 5,45,198,19,63,0,0
  618. 5980 DATA 5,30,141,0,0,0,0
  619. 5990 DATA 5,28,214,17,37,0,0
  620. 6000 DATA 5,30,141,15,70,0,0
  621. 6010 DATA 5,40,200,17,37,0,0
  622. 6020 DATA 5,30,141,11,114,0,0
  623. 6030 DATA 5,28,214,22,227,0,0
  624. 6040 DATA 5,30,141,20,100,0,0
  625. 6045 REM BAR 3 - 11
  626. 6050 DATA 5,30,141,19,63,22,227
  627. 6060 DATA 5,34,75,17,37,0,0
  628. 6070 DATA 5,38,126,15,70,0,0
  629. 6080 DATA 5,30,141,19,63,0,0
  630. 6090 DATA 5,40,200,17,37,0,0
  631. 6100 DATA 5,38,126,15,70,0,0
  632. 6110 DATA 5,34,75,14,107,0,0
  633. 6120 DATA 5,40,200,17,37,0,0
  634. 6130 DATA 5,38,126,15,70,0,0
  635. 6140 DATA 5,34,75,0,0,0,0
  636. 6150 DATA 5,38,126,25,177,0,0
  637. 6160 DATA 5,40,200,0,0,0,0
  638. 6170 DATA 5,38,126,0,0,0,0
  639. 6180 DATA 5,34,75,0,0,0,0
  640. 6190 DATA 5,30,141,12,216,0,0
  641. 6200 DATA 5,38,126,0,0,0,0
  642. 6205 REM BAR 3 - 12
  643. 6210 DATA 5,34,75,14,107,0,0
  644. 6220 DATA 5,30,141,0,0,0,0
  645. 6230 DATA 5,34,75,22,227,0,0
  646. 6240 DATA 5,38,126,0,0,0,0
  647. 6250 DATA 5,34,75,0,0,0,0
  648. 6260 DATA 5,30,141,0,0,0,0
  649. 6270 DATA 5,28,214,11,114,0,0
  650. 6280 DATA 5,34,75,0,0,0,0
  651. 6290 DATA 5,30,141,12,216,0,0
  652. 6300 DATA 5,28,214,0,0,0,0
  653. 6310 DATA 5,30,141,22,227,0,0
  654. 6320 DATA 5,34,75,0,0,0,0
  655. 6330 DATA 5,30,141,17,37,0,0
  656. 6340 DATA 5,28,214,0,0,0,0
  657. 6350 DATA 5,25,177,21,154,0,0
  658. 6360 DATA 5,30,141,0,0,0,0
  659. 6365 REM BAR 3 - 13
  660. 6370 DATA 5,22,227,28,214,0,0
  661. 6380 DATA 5,20,100,0,0,0,0
  662. 6390 DATA 5,22,227,45,198,0,0
  663. 6400 DATA 5,25,177,0,0,0,0
  664. 6410 DATA 5,22,227,0,0,0,0
  665. 6420 DATA 5,20,100,0,0,0,0
  666. 6430 DATA 5,19,63,27,56,0,0
  667. 6440 DATA 5,22,227,0,0,0,0
  668. 6450 DATA 5,20,100,25,177,0,0
  669. 6460 DATA 5,19,63,0,0,0,0
  670. 6470 DATA 5,20,100,40,200,0,0
  671. 6480 DATA 5,22,227,0,0,0,0
  672. 6490 DATA 5,20,100,0,0,0,0
  673. 6500 DATA 5,19,63,0,0,0,0
  674. 6510 DATA 5,17,37,25,177,0,0
  675. 6520 DATA 5,20,100,0,0,0,0
  676. 6525 REM PAGE 4
  677. 6530 DATA 5,19,63,22,227,0,0
  678. 6540 DATA 5,17,37,0,0,0,0
  679. 6550 DATA 5,19,63,38,126,0,0
  680. 6560 DATA 5,20,100,0,0,0,0
  681. 6570 DATA 5,19,63,0,0,0,0
  682. 6580 DATA 5,17,37,0,0,0,0
  683. 6590 DATA 5,15,70,22,227,0,0
  684. 6600 DATA 5,19,63,0,0,0,0
  685. 6610 DATA 5,20,100,17,37,0,0
  686. 6620 DATA 5,25,177,15,70,0,0
  687. 6630 DATA 5,34,75,17,37,0,0
  688. 6640 DATA 5,30,141,19,63,0,0
  689. 6650 DATA 5,28,214,17,37,0,0
  690. 6660 DATA 5,25,177,15,70,0,0
  691. 6670 DATA 5,22,227,14,107,0,0
  692. 6680 DATA 5,20,100,17,37,0,0
  693. 6685 REM BAR 4 - 2
  694. 6690 DATA 5,19,63,15,70,7,163
  695. 6700 DATA 5,20,100,17,37,0,0
  696. 6710 DATA 5,22,227,19,63,0,0
  697. 6720 DATA 5,25,177,15,70,0,0
  698. 6730 DATA 5,28,214,17,37,11,114
  699. 6740 DATA 5,30,141,19,63,0,0
  700. 6750 DATA 5,34,75,20,100,0,0
  701. 6760 DATA 5,28,214,17,37,0,0
  702. 6770 DATA 5,19,63,30,141,9,159
  703. 6780 DATA 5,22,227,17,37,0,0
  704. 6790 DATA 5,25,177,15,70,0,0
  705. 6800 DATA 5,28,214,17,37,0,0
  706. 6810 DATA 5,30,141,19,63,0,0
  707. 6820 DATA 5,34,75,20,100,0,0
  708. 6830 DATA 5,30,141,19,63,8,147
  709. 6840 DATA 5,34,75,20,100,0,0
  710. 6850 REM BAR 4 - 3
  711. 6860 DATA 5,38,126,22,227,7,163
  712. 6870 DATA 5,43,52,25,177,0,0
  713. 6880 DATA 5,38,126,22,227,9,159
  714. 6890 DATA 5,43,52,25,177,0,0
  715. 6900 DATA 2.5,43,52,25,177,8,147
  716. 6910 DATA 2.5,45,198,28,214,0,0
  717. 6920 DATA 2.5,43,52,25,177,0,0
  718. 6930 DATA 2.5,45,198,28,214,0,0
  719. 6940 DATA 2.5,43,52,25,177,7,163
  720. 6950 DATA 2.5,45,198,28,214,0,0
  721. 6960 DATA 2.5,38,126,22,227,0,0
  722. 6970 DATA 2.5,43,52,25,177,0,0
  723. 6980 DATA 5,45,198,28,214,7,53
  724. 6990 DATA 5,40,200,25,177,0,0
  725. 7000 DATA 5,45,198,28,214,8,147
  726. 7010 DATA 5,51,97,30,141,0,0
  727. 7020 DATA 5,28,214,45,198,6,108
  728. 7030 DATA 5,25,177,0,0,0,0
  729. 7040 DATA 5,22,227,45,198,0,0
  730. 7050 DATA 5,20,100,0,0,0,0
  731. 7060 REM BAR 4 - 4
  732. 7070 DATA 5,19,63,7,163,0,0
  733. 7080 DATA 5,22,227,0,0,45,198
  734. 7090 DATA 5,20,100,5,185,0,0
  735. 7100 DATA 5,22,227,0,0,0,0
  736. 7110 DATA 5,14,107,8,147,0,0
  737. 7120 DATA 5,22,227,0,0,45,198
  738. 7130 DATA 5,20,100,5,185,0,0
  739. 7140 DATA 5,22,227,0,0,0,0
  740. 7150 DATA 5,15,70,9,159,0,0
  741. 7160 DATA 5,22,227,0,0,45,198
  742. 7170 DATA 5,20,100,8,147,0,0
  743. 7180 DATA 5,22,227,7,163,0,0
  744. 7190 DATA 5,14,107,8,147,0,0
  745. 7200 DATA 5,22,227,0,0,45,198
  746. 7210 DATA 5,20,100,5,185,0,0
  747. 7220 DATA 5,22,227,0,0,0,0
  748. 7230 REM BAR 4 - 5
  749. 7240 DATA 5,19,63,7,163,0,0
  750. 7250 DATA 5,30,141,0,0,0,0
  751. 7260 DATA 5,28,214,5,185,45,198
  752. 7270 DATA 5,30,141,7,163,0,0
  753. 7280 DATA 5,20,100,8,147,0,0
  754. 7290 DATA 5,30,141,0,0,0,0
  755. 7300 DATA 5,28,214,5,185,45,198
  756. 7310 DATA 5,30,141,8,147,0,0
  757. 7320 DATA 5,22,227,9,159,0,0
  758. 7330 DATA 5,30,141,0,0,0,0
  759. 7340 DATA 5,28,214,8,147,45,198
  760. 7350 DATA 5,30,141,7,163,0,0
  761. 7360 DATA 5,20,100,8,147,0,0
  762. 7370 DATA 5,30,141,0,0,0,0
  763. 7380 DATA 5,28,214,5,185,45,198
  764. 7390 DATA 5,30,141,0,0,0,0
  765. 7400 REM BAR 4 - 6
  766. 7410 DATA 5,22,227,30,141,9,159
  767. 7420 DATA 5,28,126,40,200,0,0
  768. 7430 DATA 5,34,75,45,198,10,60
  769. 7440 DATA 5,30,141,51,97,0,0
  770. 7450 DATA 5,28,214,34,75,11,114
  771. 7460 DATA 5,25,177,0,0,0,0
  772. 7470 DATA 5,22,227,0,0,11,114
  773. 7480 DATA 5,20,100,57,172,0,0
  774. 7490 DATA 5,61,126,0,0,19,63
  775. 7500 DATA 5,57,172,0,0,0,0
  776. 7510 DATA 5,61,126,22,227,0,0
  777. 7520 DATA 5,68,149,0,0,0,0
  778. 7530 DATA 5,61,126,30,141,0,0
  779. 7540 DATA 5,57,172,0,0,0,0
  780. 7550 DATA 5,51,97,28,214,0,0
  781. 7560 DATA 5,45,198,0,0,0,0
  782. 7570 REM BAR 4 - 7
  783. 7580 DATA 5,40,200,8,147,25,177
  784. 7590 DATA 5,38,126,0,0,0,0
  785. 7600 DATA 5,40,200,12,216,0,0
  786. 7610 DATA 5,45,198,0,0,0,0
  787. 7620 DATA 5,40,200,17,37,0,0
  788. 7630 DATA 5,38,126,0,0,0,0
  789. 7640 DATA 5,34,75,15,70,0,0
  790. 7650 DATA 5,30,141,0,0,0,0
  791. 7660 DATA 5,57,172,0,0,14,107
  792. 7670 DATA 5,51,97,0,0,0,0
  793. 7680 DATA 5,57,172,17,37,0,0
  794. 7690 DATA 5,61,126,0,0,0,0
  795. 7700 DATA 5,57,172,28,214,0,0
  796. 7705 DATA 5,51,97,0,0,0,0
  797. 7710 DATA 5,45,198,25,177,0,0
  798. 7720 DATA 5,40,200,0,0,0,0
  799. 7730 REM BAR 4 - 8
  800. 7740 DATA 5,38,126,7,163,22,227
  801. 7750 DATA 5,34,75,0,0,0,0
  802. 7760 DATA 5,38,126,11,114,0,0
  803. 7770 DATA 5,40,200,0,0,0,0
  804. 7780 DATA 5,38,126,15,70,0,0
  805. 7790 DATA 5,34,75,0,0,0,0
  806. 7800 DATA 5,30,141,14,107,0,0
  807. 7810 DATA 5,28,214,0,0,0,0
  808. 7820 DATA 5,51,97,0,0,12,216
  809. 7830 DATA 5,45,198,0,0,0,0
  810. 7840 DATA 5,51,97,15,70,0,0
  811. 7850 DATA 5,54,111,0,0,0,0
  812. 7860 DATA 5,51,97,25,177,0,0
  813. 7870 DATA 5,45,198,0,0,0,0
  814. 7880 DATA 5,40,200,22,227,0,0
  815. 7890 DATA 5,38,126,0,0,0,0
  816. 7900 REM BAR 4 - 9
  817. 7910 DATA 5,34,75,20,100,6,206
  818. 7920 DATA 5,32,94,0,0,0,0
  819. 7930 DATA 5,34,75,10,60,0,0
  820. 7940 DATA 5,38,126,0,0,0,0
  821. 7950 DATA 5,34,75,13,156,0,0
  822. 7960 DATA 5,38,126,0,0,0,0
  823. 7970 DATA 5,40,200,12,216,0,0
  824. 7980 DATA 5,34,75,0,0,0,0
  825. 7990 DATA 5,11,114,45,198,11,114
  826. 8000 DATA 5,20,100,0,0,0,0
  827. 8010 DATA 5,19,63,0,0,0,0
  828. 8020 DATA 5,17,37,0,0,0,0
  829. 8030 DATA 5,16,47,0,0,16,47
  830. 8040 DATA 5,54,111,0,0,0,0
  831. 8050 DATA 5,51,97,0,0,0,0
  832. 8060 DATA 5,45,198,0,0,45,198
  833. 8070 REM BAR 4 - 10
  834. 8080 DATA 5,8,147,40,200,8,147
  835. 8090 DATA 5,12,216,0,0,0,0
  836. 8100 DATA 5,14,107,0,0,0,0
  837. 8110 DATA 5,16,47,0,0,0,0
  838. 8120 DATA 5,17,37,0,0,0,0
  839. 8130 DATA 5,19,63,0,0,0,0
  840. 8140 DATA 5,20,100,0,0,0,0
  841. 8150 DATA 5,17,37,0,0,0,0
  842. 8160 DATA 5,13,156,13,156,13,156
  843. 8170 DATA 5,34,75,0,0,0,0
  844. 8180 DATA 5,38,126,17,37,0,0
  845. 8190 DATA 5,40,200,0,0,0,0
  846. 8200 DATA 5,45,198,27,56,0,0
  847. 8210 DATA 5,51,97,0,0,0,0
  848. 8220 DATA 5,54,111,22,227,0,0
  849. 8230 DATA 5,45,198,0,0,0,0
  850. 8240 REM BAR 4 - 11
  851. 8250 DATA 5,32,94,12,216,6,108
  852. 8260 DATA 5,34,75,0,0,0,0
  853. 8270 DATA 5,38,126,14,107,0,0
  854. 8280 DATA 5,32,94,0,0,0,0
  855. 8290 DATA 5,25,177,16,47,0,0
  856. 8300 DATA 5,22,227,0,0,0,0
  857. 8310 DATA 5,20,100,0,0,0,0
  858. 8320 DATA 5,19,63,0,0,0,0
  859. 8330 DATA 5,20,100,17,37,34,75
  860. 8340 DATA 5,19,63,0,0,0,0
  861. 8350 DATA 5,17,37,0,0,0,0
  862. 8360 DATA 5,20,100,0,0,0,0
  863. 8370 DATA 5,19,63,51,97,0,0
  864. 8380 DATA 5,17,37,0,0,0,0
  865. 8390 DATA 5,16,47,0,0,0,0
  866. 8400 DATA 5,19,63,0,0,0,0
  867. 8410 REM BAR 4 - 12
  868. 8420 DATA 5,17,37,4,73,40,200
  869. 8430 DATA 5,12,216,0,0,0,0
  870. 8440 DATA 5,17,37,6,108,0,0
  871. 8450 DATA 5,19,63,0,0,0,0
  872. 8460 DATA 5,20,100,8,147,0,0
  873. 8470 DATA 5,22,227,0,0,0,0
  874. 8480 DATA 5,20,100,9,159,38,126
  875. 8490 DATA 5,22,227,0,0,0,0
  876. 8500 DATA 5,25,177,34,75,10,60
  877. 8510 DATA 5,20,100,0,0,0,0
  878. 8520 DATA 5,17,37,40,200,0,0
  879. 8530 DATA 5,20,100,0,0,0,0
  880. 8540 DATA 5,27,56,38,126,11,114
  881. 8550 DATA 5,22,227,0,0,0,0
  882. 8560 DATA 5,25,177,34,75,0,0
  883. 8570 DATA 5,28,214,0,0,0,0
  884. 8580 REM BAR 4 - 13
  885. 8590 DATA 5,19,63,32,94,12,216
  886. 8600 DATA 5,20,100,0,0,0,0
  887. 8610 DATA 5,19,63,38,126,0,0
  888. 8620 DATA 5,17,37,0,0,0,0
  889. 8630 DATA 5,16,47,16,47,25,177
  890. 8640 DATA 5,12,216,6,108,0,0
  891. 8650 DATA 5,11,114,5,185,19,63
  892. 8660 DATA 5,12,216,6,108,0,0
  893. 8670 DATA 5,10,60,5,25,34,75
  894. 8680 DATA 5,12,216,6,108,0,0
  895. 8690 DATA 5,11,114,5,185,25,177
  896. 8700 DATA 5,12,216,6,108,0,0
  897. 8710 DATA 5,8,23,4,12,38,126
  898. 8720 DATA 5,12,216,6,108,0,0
  899. 8730 DATA 5,11,114,5,185,25,177
  900. 8740 DATA 5,12,216,6,108,0,0
  901. 8750 REM BAR 4 - 14
  902. 8760 DATA 5,8,147,4,73,40,200
  903. 8770 DATA 5,12,216,6,108,0,0
  904. 8780 DATA 5,11,114,5,185,38,126
  905. 8790 DATA 5,12,216,6,108,34,75
  906. 8800 DATA 5,8,23,4,12,38,126
  907. 8810 DATA 5,12,216,6,108,0,0
  908. 8820 DATA 5,11,114,5,185,25,177
  909. 8830 DATA 5,12,216,6,108,0,0
  910. 8840 DATA 5,10,60,5,25,34,75
  911. 8850 DATA 5,17,37,8,147,0,0
  912. 8860 DATA 5,16,47,8,23,25,177
  913. 8870 DATA 5,17,37,8,147,0,0
  914. 8880 DATA 5,11,114,5,185,38,126
  915. 8890 DATA 5,17,37,8,147,0,0
  916. 8900 DATA 5,16,47,8,23,25,177
  917. 8910 DATA 5,17,37,8,147,38,126
  918. 8920 REM PAGE 5
  919. 8930 DATA 5,12,216,6,108,40,200
  920. 8940 DATA 5,17,37,8,147,0,0
  921. 8950 DATA 5,16,47,8,23,38,126
  922. 8960 DATA 5,17,37,8,147,34,75
  923. 8970 DATA 5,12,216,6,108,38,126
  924. 8980 DATA 5,16,47,8,23,25,177
  925. 8990 DATA 5,14,104,7,53,51,97
  926. 9000 DATA 5,16,47,8,23,45,198
  927. 9010 DATA 5,40,200,17,37,8,147
  928. 9020 DATA 5,38,126,0,0,0,0
  929. 9030 DATA 5,34,75,25,177,10,60
  930. 9040 DATA 5,40,200,0,0,0,0
  931. 9050 DATA 5,38,126,22,227,11,114
  932. 9060 DATA 5,34,75,20,100,0,0
  933. 9070 DATA 5,32,94,19,63,12,216
  934. 9080 DATA 5,38,126,22,227,0,0
  935. 9090 REM BAR 5 - 2
  936. 9100 DATA 5,34,75,20,100,8,147
  937. 9110 DATA 5,51,97,0,0,0,0
  938. 9120 DATA 5,40,200,12,216,0,0
  939. 9130 DATA 5,51,97,0,0,0,0
  940. 9140 DATA 5,34,75,10,60,0,0
  941. 9150 DATA 5,40,200,0,0,0,0
  942. 9160 DATA 5,25,177,8,147,0,0
  943. 9170 DATA 5,30,141,0,0,0,0
  944. 9180 DATA 5,28,214,5,185,11,114
  945. 9190 DATA 5,34,75,0,0,0,0
  946. 9200 DATA 5,28,214,17,37,0,0
  947. 9210 DATA 5,34,75,0,0,0,0
  948. 9220 DATA 5,22,227,14,107,0,0
  949. 9230 DATA 5,28,214,0,0,0,0
  950. 9240 DATA 5,17,37,11,114,0,0
  951. 9250 DATA 5,20,100,0,0,0,0
  952. 9260 REM BAR 5 - 3
  953. 9270 DATA 5,19,63,15,70,15,70
  954. 9280 DATA 5,45,198,0,0,0,0
  955. 9290 DATA 5,38,126,11,114,0,0
  956. 9300 DATA 5,45,198,0,0,0,0
  957. 9310 DATA 5,30,141,9,159,0,0
  958. 9320 DATA 5,38,126,0,0,0,0
  959. 9330 DATA 5,22,227,7,163,0,0
  960. 9340 DATA 5,28,214,0,0,0,0
  961. 9350 DATA 5,25,177,5,25,10,60
  962. 9360 DATA 5,30,141,0,0,0,0
  963. 9370 DATA 5,25,177,15,70,0,0
  964. 9380 DATA 5,30,141,0,0,0,0
  965. 9390 DATA 5,20,100,12,216,0,0
  966. 9400 DATA 5,25,177,0,0,0,0
  967. 9410 DATA 5,15,70,10,60,0,0
  968. 9420 DATA 5,19,63,0,0,0,0
  969. 9430 REM BAR 5 - 4
  970. 9440 DATA 5,17,37,14,107,14,107
  971. 9450 DATA 5,40,200,0,0,0,0
  972. 9460 DATA 5,34,75,10,60,0,0
  973. 9470 DATA 5,40,200,0,0,0,0
  974. 9480 DATA 5,28,214,8,147,0,0
  975. 9490 DATA 5,34,75,0,0,0,0
  976. 9500 DATA 5,21,154,7,53,0,0
  977. 9510 DATA 5,25,177,0,0,0,0
  978. 9520 DATA 5,24,63,4,208,9,159
  979. 9530 DATA 5,28,214,0,0,0,0
  980. 9540 DATA 5,24,63,14,107,0,0
  981. 9550 DATA 5,28,214,0,0,0,0
  982. 9560 DATA 5,19,63,12,32,0,0
  983. 9570 DATA 5,24,63,0,0,0,0
  984. 9580 DATA 5,14,107,9,159,0,0
  985. 9590 DATA 5,17,37,0,0,0,0
  986. 9600 REM BAR 5 - 5
  987. 9610 DATA 5,6,108,15,70,12,216
  988. 9620 DATA 5,7,163,0,0,0,0
  989. 9630 DATA 5,7,53,25,177,0,0
  990. 9640 DATA 5,6,108,0,0,0,0
  991. 9650 DATA 5,9,159,14,107,0,0
  992. 9660 DATA 5,7,53,0,0,0,0
  993. 9670 DATA 5,4,208,24,63,0,0
  994. 9680 DATA 5,8,147,0,0,0,0
  995. 9690 DATA 5,12,216,7,163,25,177
  996. 9700 DATA 5,15,70,0,0,0,0
  997. 9710 DATA 5,14,107,9,159,0,0
  998. 9720 DATA 5,12,216,0,0,0,0
  999. 9730 DATA 5,19,63,6,16,0,0
  1000. 9740 DATA 5,14,107,0,0,0,0
  1001. 9750 DATA 5,9,159,9,159,0,0
  1002. 9760 DATA 5,17,37,0,0,0,0
  1003. 9770 REM BAR 5 - 6
  1004. 9780 DATA 5,25,177,15,70,12,216
  1005. 9790 DATA 5,30,141,0,0,0,0
  1006. 9800 DATA 5,28,214,19,63,0,0
  1007. 9810 DATA 5,25,177,0,0,0,0
  1008. 9820 DATA 5,38,126,14,107,10,60
  1009. 9830 DATA 5,28,214,0,0,0,0
  1010. 9840 DATA 5,19,63,19,63,0,0
  1011. 9850 DATA 5,34,75,0,0,0,0
  1012. 9860 DATA 5,30,141,0,0,12,216
  1013. 9870 DATA 5,38,126,0,0,0,0
  1014. 9880 DATA 5,34,75,25,177,0,0
  1015. 9890 DATA 5,30,141,0,0,0,0
  1016. 9900 DATA 5,45,198,17,37,14,107
  1017. 9910 DATA 5,34,75,0,0,0,0
  1018. 9920 DATA 5,22,227,22,227,0,0
  1019. 9930 DATA 5,40,200,0,0,0,0
  1020. 9940 REM BAR 5 - 7
  1021. 9950 DATA 5,38,126,22,227,15,70
  1022. 9960 DATA 5,45,198,0,0,0,0
  1023. 9970 DATA 5,40,200,22,227,0,0
  1024. 9980 DATA 5,38,126,0,0,0,0
  1025. 9990 DATA 5,51,97,19,63,16,47
  1026. 10000 DATA 5,38,126,0,0,0,0
  1027. 10010 DATA 5,25,177,25,177,0,0
  1028. 10020 DATA 5,45,198,0,0,0,0
  1029. 10030 DATA 5,43,52,0,0,17,37
  1030. 10040 DATA 5,51,97,0,0,0,0
  1031. 10050 DATA 5,45,198,25,177,0,0
  1032. 10060 DATA 5,43,52,0,0,0,0
  1033. 10070 DATA 5,57,172,21,154,18,42
  1034. 10080 DATA 5,43,52,0,0,0,0
  1035. 10090 DATA 5,28,214,28,214,0,0
  1036. 10100 DATA 5,51,97,0,0,0,0
  1037. 10110 REM BAR 5 - 8
  1038. 10120 DATA 5,48,127,28,214,19,63
  1039. 10130 DATA 5,40,200,0,0,0,0
  1040. 10140 DATA 5,38,126,0,0,0,0
  1041. 10150 DATA 5,34,75,0,0,0,0
  1042. 10160 DATA 5,30,141,51,97,21,154
  1043. 10170 DATA 5,38,126,0,0,0,0
  1044. 10180 DATA 5,28,214,57,172,24,63
  1045. 10190 DATA 5,38,126,0,0,0,0
  1046. 10200 DATA 5,25,177,25,177,61,126
  1047. 10210 DATA 5,54,111,0,0,0,0
  1048. 10220 DATA 5,51,97,0,0,0,0
  1049. 10230 DATA 5,48,127,0,0,0,0
  1050. 10240 DATA 5,51,97,28,214,0,0
  1051. 10250 DATA 5,45,198,0,0,0,0
  1052. 10260 DATA 5,40,200,30,141,0,0
  1053. 10270 DATA 5,38,126,0,0,0,0
  1054. 10280 REM BAR 5 - 9
  1055. 10290 DATA 5,34,75,40,200,0,0
  1056. 10300 DATA 5,25,177,0,0,0,0
  1057. 10310 DATA 5,22,227,0,0,0,0
  1058. 10320 DATA 5,20,100,0,0,0,0
  1059. 10330 DATA 5,34,75,0,0,57,172
  1060. 10340 DATA 5,28,214,0,0,0,0
  1061. 10350 DATA 5,22,227,0,0,0,0
  1062. 10360 DATA 5,28,214,0,0,0,0
  1063. 10370 DATA 5,30,141,38,126,0,0
  1064. 10380 DATA 5,22,227,0,0,0,0
  1065. 10390 DATA 5,20,100,0,0,0,0
  1066. 10400 DATA 5,19,63,0,0,0,0
  1067. 10410 DATA 5,30,141,0,0,51,97
  1068. 10420 DATA 5,25,177,0,0,0,0
  1069. 10430 DATA 5,20,100,0,0,0,0
  1070. 10440 DATA 5,25,177,0,0,0,0
  1071. 10450 REM BAR 5 - 10
  1072. 10460 DATA 5,28,214,34,75,0,0
  1073. 10470 DATA 5,20,100,0,0,0,0
  1074. 10480 DATA 5,19,63,0,0,0,0
  1075. 10490 DATA 5,17,37,0,0,0,0
  1076. 10500 DATA 5,28,214,0,0,48,127
  1077. 10510 DATA 5,24,63,0,0,0,0
  1078. 10520 DATA 5,19,63,0,0,0,0
  1079. 10530 DATA 5,24,63,0,0,0,0
  1080. 10540 DATA 5,30,141,51,97,12,216
  1081. 10550 DATA 5,38,126,30,141,0,0
  1082. 10560 DATA 5,34,75,28,214,0,0
  1083. 10570 DATA 5,30,141,25,177,0,0
  1084. 10580 DATA 5,28,214,24,63,19,63
  1085. 10590 DATA 5,30,141,25,177,0,0
  1086. 10600 DATA 5,25,177,21,154,0,0
  1087. 10610 DATA 5,28,214,24,63,0,0
  1088. 10620 REM BAR 5 - 11
  1089. 10630 DATA 5,30,141,25,177,15,70
  1090. 10640 DATA 5,34,75,0,0,0,0
  1091. 10650 DATA 5,30,141,38,126,0,0
  1092. 10660 DATA 5,34,75,0,0,0,0
  1093. 10670 DATA 5,38,126,51,97,0,0
  1094. 10680 DATA 5,40,200,0,0,0,0
  1095. 10690 DATA 5,38,126,57,172,14,107
  1096. 10700 DATA 5,34,75,0,0,0,0
  1097. 10710 DATA 5,61,126,38,126,12,216
  1098. 10720 DATA 5,57,172,0,0,0,0
  1099. 10730 DATA 5,51,97,38,126,15,70
  1100. 10740 DATA 5,57,172,0,0,0,0
  1101. 10750 DATA 5,48,127,34,75,14,107
  1102. 10760 DATA 5,51,97,0,0,0,0
  1103. 10770 DATA 5,48,127,38,126,12,216
  1104. 10780 DATA 5,51,97,0,0,0,0
  1105. 10790 REM BAR 5 - 12
  1106. 10800 DATA 5,57,172,38,126,12,32
  1107. 10810 DATA 5,51,97,0,0,0,0
  1108. 10820 DATA 5,48,127,14,107,7,53
  1109. 10830 DATA 5,43,52,0,0,0,0
  1110. 10840 DATA 5,38,126,9,159,4,208
  1111. 10850 DATA 5,34,75,0,0,0,0
  1112. 10860 DATA 5,30,141,24,63,19,63
  1113. 10870 DATA 5,28,214,0,0,0,0
  1114. 10880 DATA 5,30,141,25,177,12,216
  1115. 10890 DATA 5,38,126,0,0,0,0
  1116. 10900 DATA 5,34,75,9,159,4,208
  1117. 10910 DATA 5,38,126,0,0,0,0
  1118. 10920 DATA 5,24,63,19,63,14,107
  1119. 10930 DATA 5,38,126,0,0,0,0
  1120. 10940 DATA 5,34,75,9,159,4,208
  1121. 10950 DATA 5,38,126,0,0,0,0
  1122. 10960 REM BAR 5 - 13
  1123. 10970 DATA 5,30,141,25,177,15,70
  1124. 10980 DATA 5,38,126,0,0,0,0
  1125. 10990 DATA 5,34,75,14,107,7,53
  1126. 11000 DATA 5,38,126,12,216,6,108
  1127. 11010 DATA 5,24,63,19,63,14,107
  1128. 11020 DATA 5,38,126,0,0,0,0
  1129. 11030 DATA 5,34,75,9,159,4,208
  1130. 11040 DATA 5,38,126,0,0,0,0
  1131. 11050 DATA 5,30,141,19,63,12,216
  1132. 11060 DATA 5,25,177,0,0,0,0
  1133. 11070 DATA 5,24,63,9,159,4,208
  1134. 11080 DATA 5,25,177,12,216,6,108
  1135. 11090 DATA 5,34,75,17,37,14,107
  1136. 11100 DATA 5,25,177,0,0,0,0
  1137. 11110 DATA 5,24,63,9,159,4,208
  1138. 11120 DATA 5,25,177,14,107,7,53
  1139. 11130 REM BAR 5 - 14
  1140. 11140 DATA 5,38,126,15,70,19,63
  1141. 11150 DATA 5,25,177,0,0,0,0
  1142. 11160 DATA 5,24,63,14,107,0,0
  1143. 11170 DATA 5,25,177,12,216,0,0
  1144. 11180 DATA 5,34,75,14,107,0,0
  1145. 11190 DATA 5,25,177,0,0,0,0
  1146. 11200 DATA 5,24,63,9,159,0,0
  1147. 11210 DATA 5,25,177,0,0,0,0
  1148. 11220 DATA 10,30,141,25,177,12,216
  1149. 11230 DATA 10,51,97,40,200,10,60
  1150. 11240 DATA 10,28,214,20,100,8,147
  1151. 11250 DATA 10,48,127,34,75,9,159
  1152. 11260 REM LAST BAR
  1153. 11270 DATA 40,51,97,38,126,19,63
  1154. 11280 DATA 40,0,0,0,0,0,0
  1155. 20000 DATA 0
  1156.